Local Screen$,Temp$,Xm,Ym,Button$,Radio1_old$,Radio2_old$,Radio3_old$,Radio4_old$,Radio5_old$,Radio1_new$,Radio2_new$,Radio3_new$,Radio4_new$,Radio5_new$,Stat_exit
Sget Screen$
Local Toggle_1_stat$, Toggle_1_stat
Local Toggle_2_stat$, Toggle_2_stat
Local Exit_1_stat$, Exit_1_stat
Local Exit_2_stat$, Exit_2_stat
@Drawshapes_Example_box
@Radio_title(0)
@Toggle_title(0)
@exit_title(0)
If Instr(Preselect$,"(Radio_a_1)")>0
@Radio_a_1(-1)
Let Radio1_old$="Radio_a_1"
Else
@Radio_a_1(0)
Endif
If Instr(Preselect$,"(Radio_a_2)")>0
@Radio_a_2(-1)
Let Radio1_old$="Radio_a_2"
Else
@Radio_a_2(0)
Endif
If Instr(Preselect$,"(Radio_a_3)")>0
@Radio_a_3(-1)
Let Radio1_old$="Radio_a_3"
Else
@Radio_a_3(0)
Endif
If Instr(Preselect$,"(Radio_a_4)")>0
@Radio_a_4(-1)
Let Radio1_old$="Radio_a_4"
Else
@Radio_a_4(0)
Endif
If Instr(Preselect$,"(Radio_b_1)")>0
@Radio_b_1(-1)
Let Radio4_old$="Radio_b_1"
Else
@Radio_b_1(0)
Endif
If Instr(Preselect$,"(Radio_b_2)")>0
@Radio_b_2(-1)
Let Radio4_old$="Radio_b_2"
Else
@Radio_b_2(0)
Endif
If Instr(Preselect$,"(Radio_b_3)")>0
@Radio_b_3(-1)
Let Radio4_old$="Radio_b_3"
Else
@Radio_b_3(0)
Endif
If Instr(Preselect$,"(Toggle_1)")>0
@Toggle_1(-1)
Let Toggle_1_stat=true
Let Toggle_1_stat$="Toggle_1"
Else
@Toggle_1(0)
Endif
If Instr(Preselect$,"(Toggle_2)")>0
@Toggle_2(-1)
Let Toggle_2_stat=true
Let Toggle_2_stat$="Toggle_2"
Else
@Toggle_2(0)
Endif
@Exit_1(0)
@Exit_2(0)
@Cancel(0)
@Okay(0)
Showm
Do
If Inkey$=Chr$(13)
Default=True
Else
Default=False
Endif
If Mousek=1
Mouse Xm,Ym,Void
@Find_button_Example_box (Xm,Ym,*Button$)
If Instr("(Radio_a_1)(Radio_a_2)(Radio_a_3)(Radio_a_4)","("+Button$+")")>0